home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / listing 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  616 b   |  29 lines
  1. 1000 rem unterprogramm 1
  2. 1001 rem lesen eines eintrages aus dem
  3. 1002 rem directory (alle 30 bytes !!!)
  4. 1003 rem in die variable dd$
  5. 1004 rem uebergabeparameter:
  6. 1005 rem mm=nummer des eintrages der
  7. 1006 rem    gelesen werden soll
  8. 1007 :
  9. 1008 :
  10. 1009 :
  11. 1010 open 15,8,15,"i":open8,8,8,"#"
  12. 1020 nn$="":fori=1to30:nn$=nn$+chr$(0):nexti
  13. 1030 xx=int((mm-1)/8)
  14. 1040 print#15,"u1 8 0 18 0"
  15. 1050 forzz=1toxx+1
  16. 1060 print#15,"b-p 8 0"
  17. 1070 get#8,tt$:tt=asc(tt$+chr$(0))
  18. 1080 get#8,ss$:ss=asc(ss$+chr$(0))
  19. 1090 if tt=0 then dd$=nn$:goto1170
  20. 1100 print#15,"u1 8 0";tt;ss
  21. 1110 nextzz
  22. 1120 pp=mm-(xx*8):pp=(pp-1)*32+2
  23. 1130 print#15,"b-p 8";pp
  24. 1140 forzz=1 to 30:get#8,zz$
  25. 1150 ifzz$=""thenzz$=chr$(0)
  26. 1160 dd$=dd$+zz$:nextzz
  27. 1170 close 8:close 15
  28. 1180 return
  29.